VERSION 5.00
Begin VB.Form ClinicSTIMaleResultForm 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Treated_Button 
      Caption         =   "Treated"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   840
      TabIndex        =   23
      Top             =   6840
      Width           =   2175
   End
   Begin VB.CommandButton Diag_Button 
      Caption         =   "Diagnosed"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   840
      TabIndex        =   22
      Top             =   5700
      Width           =   2175
   End
   Begin VB.CommandButton No_Button 
      Caption         =   "No"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   840
      TabIndex        =   21
      Top             =   4560
      Width           =   2175
   End
   Begin VB.CommandButton Clear_Button 
      Caption         =   "Clear"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   2
      Top             =   5160
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.CommandButton Next_Button 
      Caption         =   "Next"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   1
      Top             =   6360
      Width           =   1935
   End
   Begin VB.CommandButton Cancel_Button 
      BackColor       =   &H008080FF&
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   7560
      Width           =   1935
   End
   Begin VB.Label Label5 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Neither diagnosed nor treated"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   20.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3180
      TabIndex        =   26
      Top             =   4740
      Width           =   4695
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Both diagnosed and treated"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   20.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3240
      TabIndex        =   25
      Top             =   6960
      Width           =   4635
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Diagnosed but not treated"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   20.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3240
      TabIndex        =   24
      Top             =   5880
      Width           =   4635
   End
   Begin VB.Label SS_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   3780
      TabIndex        =   20
      Top             =   3240
      Width           =   1575
   End
   Begin VB.Label BUBO_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   3780
      TabIndex        =   19
      Top             =   2760
      Width           =   1575
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   4
      Left            =   900
      TabIndex        =   18
      Top             =   3240
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   3
      Left            =   900
      TabIndex        =   17
      Top             =   2760
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   2
      Left            =   900
      TabIndex        =   16
      Top             =   2280
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   1
      Left            =   900
      TabIndex        =   15
      Top             =   1800
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   0
      Left            =   900
      TabIndex        =   14
      Top             =   1320
      Width           =   255
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Scrotal Swelling:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1140
      TabIndex        =   13
      Top             =   3240
      Width           =   2415
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFFF&
      Caption         =   "BUBO:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1140
      TabIndex        =   12
      Top             =   2760
      Width           =   2415
   End
   Begin VB.Line SexColorLine 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   10
      X1              =   300
      X2              =   300
      Y1              =   720
      Y2              =   2640
   End
   Begin VB.Label ClientSexLabel 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Client Sex Goes Here"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   900
      TabIndex        =   11
      Top             =   480
      Width           =   2415
   End
   Begin VB.Label UD_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   3780
      TabIndex        =   10
      Top             =   1800
      Width           =   1575
   End
   Begin VB.Label Unigold_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Urethral Discharge:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1140
      TabIndex        =   9
      Top             =   1800
      Width           =   2415
   End
   Begin VB.Label ClientCode_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   3780
      TabIndex        =   8
      Top             =   840
      Width           =   1575
   End
   Begin VB.Label GUD_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   3780
      TabIndex        =   7
      Top             =   1320
      Width           =   1575
   End
   Begin VB.Label Bal_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Left            =   3780
      TabIndex        =   6
      Top             =   2280
      Width           =   1575
   End
   Begin VB.Label ClientCode_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Client Code:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1140
      TabIndex        =   5
      Top             =   840
      Width           =   1695
   End
   Begin VB.Label Determine_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Genital Ulcer Disease:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1140
      TabIndex        =   4
      Top             =   1320
      Width           =   2415
   End
   Begin VB.Label Hemastrip_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Balanitis:"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1140
      TabIndex        =   3
      Top             =   2280
      Width           =   2415
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      Height          =   3735
      Left            =   300
      Shape           =   4  'Rounded Rectangle
      Top             =   240
      Width           =   5295
   End
End
Attribute VB_Name = "ClinicSTIMaleResultForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StarIndex, I As Integer

Private Sub Cancel_Button_Click()
   VCTStageForm.Show
   Unload Me
End Sub

Private Sub Diag_Button_Click()
   Select Case StarIndex
      Case 0
         GUD_Data.Caption = "Diagnosed"
         STID1 = "1"
         STIT1 = "0"
      Case 1
         UD_Data.Caption = "Diagnosed"
         STID2 = "1"
         STIT2 = "0"
      Case 2
         Bal_Data.Caption = "Diagnosed"
         STID4 = "1"
         STIT4 = "0"
      Case 3
         BUBO_Data.Caption = "Diagnosed"
         STID6 = "1"
         STIT6 = "0"
      Case 4
         SS_Data.Caption = "Diagnosed"
         STID7 = "1"
         STIT7 = "0"
   End Select
   If StarIndex < 4 Then
      StarIndex = StarIndex + 1
      UpdateStars
   Else
      Next_Button.Enabled = True
   End If
End Sub

Private Sub Form_Load()
   Next_Button.Enabled = False
   ClientCode_Data.Caption = CLIENTCO
   If SEX = "1" Then
      ClientSexLabel.Caption = "Male Client"
      SexColorLine.BorderColor = vbBlue
   Else
      If SEX = "2" Then
         ClientSexLabel.Caption = "Female Client"
         SexColorLine.BorderColor = vbGreen
      Else
         ClientSexLabel.Caption = "ERROR"
         SexColorLine.BorderColor = vbRed
      End If
   End If
   ClientCode_Data.Caption = CLIENTCO
   StarIndex = 0
   UpdateStars
   'Complete the variables that only apply to male clients
   STID3 = "0"
   STIT3 = "0"
   STID5 = "0"
   STIT5 = "0"
End Sub

Private Sub UpdateStars()
   For I = 0 To 4
      Star(I).Visible = False
   Next I
   Star(StarIndex).Visible = True
End Sub

Private Sub Next_Button_Click()
   ClinicCondomForm.Show
   Unload Me
End Sub

Private Sub No_Button_Click()
   Select Case StarIndex
      Case 0
         GUD_Data.Caption = "No"
         STID1 = "0"
         STIT1 = "0"
      Case 1
         UD_Data.Caption = "No"
         STID2 = "0"
         STIT2 = "0"
      Case 2
         Bal_Data.Caption = "No"
         STID4 = "0"
         STIT4 = "0"
      Case 3
         BUBO_Data.Caption = "No"
         STID6 = "0"
         STIT6 = "0"
      Case 4
         SS_Data.Caption = "No"
         STID7 = "0"
         STIT7 = "0"
   End Select
   If StarIndex < 4 Then
      StarIndex = StarIndex + 1
      UpdateStars
   Else
      Next_Button.Enabled = True
   End If
End Sub

Private Sub Treated_Button_Click()
   Select Case StarIndex
      Case 0
         GUD_Data.Caption = "Treated"
         STID1 = "1"
         STIT1 = "1"
      Case 1
         UD_Data.Caption = "Treated"
         STID2 = "1"
         STIT2 = "1"
      Case 2
         Bal_Data.Caption = "Treated"
         STID4 = "1"
         STIT4 = "1"
      Case 3
         BUBO_Data.Caption = "Treated"
         STID6 = "1"
         STIT6 = "1"
      Case 4
         SS_Data.Caption = "Treated"
         STID7 = "1"
         STIT7 = "1"
   End Select
   If StarIndex < 4 Then
      StarIndex = StarIndex + 1
      UpdateStars
   Else
      Next_Button.Enabled = True
   End If
End Sub
